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For an 8051 (xP, converting a 16-bit binary integer to 
decimal form is considerably more complicated than 
converting an 8-bit integer. The most straightforward 
method uses a 16-bit-divide routine. Listing l's alter- 
native method takes advantage of the 8051's BCD com- 
mands. Using the BCD commands results in simple 
and clean code. 

The listing is for the Boston Systems Office 
(Waltham, MA) 8051 macro assembler. Its macro defi- 


nitions differ somewhat from Intel's. The listing uses 
(rO, rl) and (r2, r3, r4) for the input and output, respec- 
tively; but you can use any five 8051 registers or any 
five internal-direct memory locations. You can obtain 
the listing from the EDN BBS. Phone (617) 558-4241 
with modern settings 300/1200/2400, 8, N, 1. From the 
main menu, enter (s)ig, <s/di_sig>, rk946). 
(EDN BBS /DI_SIG #946) 
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Listing 1—8051 Radix-conversion routine 


title cnvbcd 


; Listing controls 
$ nocond 
S genonly 


rlcl6 macro %xl, %x2 

; Performs a 16-bit rotate left through the Carry flag, 
mov a, %x2 
rlc a 
mov 55x2, a 
mov a, 5(xl 
rlc a 
mov %xl , a 
endm 


clrbcd macro Rxl, Sx2, Sx3 

; Initializes the packed bed digits. 

mov Sx3, #0 

mov Sx2, #0 

mov %xl, #0 

endm 


inched macro Xxl, %x2, %x3 

; Increments the packed bed digits by 1, if the carry is set 
mov a, %x3 
addc a, #0 
da a 
mov 55x3, a 

mov a, %x2 

addc a, #0 > 

da a 

mov — 5?v.2, a 


55x1 
a, #0 


mov 
addc 
da 

mov %xl, a 
endm 


dblbcd macro 55x1, Sx2, Xx3 
Doubles the packed bed digits, 

mov a, %x3 

add a, Sx3 

da a 

mov 54x3, a 

mov a, 5Sx2 


addc 

a, Sx2 

da 


mov 

Sx2, a 

mov 

a, %xl 

addc 

a, feci 

da 

a 

mov 

%xl, a 


cnvbcd : 

! CNVBOD accepts a 16-bit unsigned binary integer and converts it into 
; S packed bed digits. 

; The input is passed in (r0,rl). 

; The output is returned in (r2,r3,r4). 

; Note : The contents of EO & Rl are destroyed at the end of this routine. 

* The following algorithm is used. 

* See Knuth, "The Art of Computer Programming", Vol 2, 1981 

* Section 4.4, Radix Conversion. 

* y := ; 

» for i := 1 to 15 do 

* y := y * x[16-i] ; 

* y := y • 2 ; 

* end do ; 

* y := y + x[0] ; 


mov r7, #15 

clrbcd r2, r3, r4 

1$: rlcl6 r0, rl 

inched r2, r3, r4 

dblbcd r2, r3, r4 

djnz r7, IS 

rlcl6 rO, rl 

inched r2, r3, r4 

ret 

end 
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